home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / time / WaitUntil.lha / WaitUntil / .waituntil next >
AmigaDOS Script File  |  1997-07-31  |  504b  |  21 lines
  1. .key time/A
  2. .ket }
  3. .bra {
  4.  
  5. wait until {time}
  6. oplay -r8000 "s:Let's Go!.Lemmings"
  7. reqask CENTER TITLE "              Let's Go!" BODY " _        _   _               _*n| |   ___| |_( )___  __ _ ___| |*n| |__/ -_)  _|/(_-< / _` / _ \_|*n|____\___|\__| /__/ \__, \___(_)*n                    |___/" GADGET "Go!"
  8.  
  9. grep -v {time} s:.waits >ram:.waits
  10.  
  11. setenv LEN `wc -l ram:.waits | head -1 | cut -f6-7 "-d "`
  12.  
  13. if $LEN eq 0
  14.   delete s:.waits
  15. else
  16.   copy ram:.waits s:
  17.   delete ram:.waits
  18. endif
  19.  
  20. delete env:LEN
  21.